home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / examples / fib.r < prev    next >
Text File  |  1994-04-25  |  278b  |  24 lines
  1. //
  2. //  Calculate Fibonacci numbers
  3. //
  4.  
  5. "Starting the fibonacci test..."
  6. i=1; 
  7. while ( i < 2 ) { 
  8.   i=i+1;
  9.   a=0; b=1;
  10.   while ( b < 10000 ) {
  11.     c = b;
  12.     b = a+b;
  13.     a = c;
  14.   }
  15. }
  16.  
  17. b
  18.  
  19. if ( b != 10946 ) {
  20.   error("failed fibonacci test");
  21. else
  22. "...passed fibonacci test..."
  23. }
  24.